      INTEGER IA(5), JA(8), IPARM(12), IWKSP(12)
      REAL A(8), RHS(4), u(4), WKSP(24), RPARM(12)
      DATA A(1),A(2),A(3),A(4) / 4.0,-1.0,-1.0,4.0 /
      DATA A(5),A(6),A(7),A(8) / -1.0,4.0,-1.0,4.0 /
      DATA JA(1),JA(2),JA(3),JA(4) / 1,2,3,2 /
      DATA JA(5),JA(6),JA(7),JA(8) / 4,3,4,4 /
      DATA IA(1),IA(2),IA(3),IA(4),IA(5) / 1,4,6,8,9 /
      DATA RHS(1),RHS(2),RHS(3),RHS(4) / 6.0,0.0,0.0,6.0 /
      DATA N /4/, NW /24/, ITMAX /4/, LEVEL/1/, IDGTS/2/
C
      CALL DFAULT (IPARM, RPARM)
      IPARM(1) = ITMAX
      IPARM(2) = LEVEL
      IPARM(12) = IDGTS
      CALL VFILL (N, U, 0.E0)
      CALL JCG (N,IA,JA,A,RHS,U,IWKSP,NW,WKSP,IPARM,RPARM,IER)
      STOP
      END
